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INTRODUCTION 


If  ona  iesires  to  scale  dovm  a  high-altitude  electromagnetic  pulse 
(HEMP)  waveform  to  illuminate  and  measure  the  response  of  a  physically 
scaled  version  of  an  Army  tactical  system,  he  is  confronted  with  the 
problem  of  how  to  measure  the  radiated  pulse •  What  are  the  1 imi tations 
of  existing  field  sensors?  What  new  sensors  are  required?  While  this 
report  is  not  intended  by  any  means  to  exhaustively  discuss  these  ques¬ 
tions,  it  discusses  specific  ongoing  work  in  this  area  by  the  Harry 
Diamcnd  Laboratories  (HDL). 


2.  FABRICATION  AND  CALIBRATION  OF  D-DOT  SENSOR  FOR  MEASURING  EARLY  TIME 
PORTION  OF  SCALED-DOWN  HEMP 

2. 1  Background 

Electromagnetic  scale  modeling  of  Army  systems  for  experimen¬ 
tally  determining  external  coupling  features  requires  the  generation  and 
the  measurement  of  extremely  fast  rising  radiated  pulses.  Considerable 
effort  in  the  area  of  pulser  design  and  fabrication  has  resulted  in 
radiated  pulses  with  fast  rise  times  of  about  200  ps .  Existing  field 
sensors  at  this  facility  were  inadequate  to  accurately  reproduce  rise 
times  that  fast.  (Rise  times  in  this  report  are  measured  from  the  10- 
to  90-percent  level  unless  otherwise  noted.)  Consequently ,  an  effort 
was  initiated  to  design  and  evaluate  such  a  sensor. 

Previous  attempts  at  developing  an  electric  field  sensor  re¬ 
sulted  in  a  sensor  of  generally  poor  response.  Subsequently,  the  theory 
of  Baum^  was  used  as  the  conceptual  basis  for  fabricating  and  testing  a 
differential  D-dot  sensor  for  this  application. 

2.2  Theoretical  Basis  for  Scale  Modeling 

Sinclair^  has  shown  that  when  air  in  the  full  scale  system  is 
simulated  with  air  in  the  model,  the  following  relationships  are  estab¬ 
lished  for  all  media  being  modeled  (primed  macroscopic  properties  refer 
to  the  model  media  and  the  unprimed  properties  refer  to  the  full-scale 
system) : 


U*  =  M  (permeability). 


^C.  E.  Baum,  An  Equivalent-Charge  Method  for  Defining  Cfoomatries  of 
Dipole  Antennas,  Air  Force  Weapons  laboratory,  Albuquerque ,  NM,  Electro¬ 
magnetic  Pulse  Sensor  and  Simulatioi:  Note  72  (24  January  1969 ) » 

Sinclair,  Theory  of  Models  of  Electromagnetic  Systems,  Proc.  IRE 
('November  1948),  1364-1370 » 


( pei  .aittivity )  , 


e'  =  e 
'  =  pa  (conductivity). 


P  =  Y/ 


where 


p  =  mechanical  scale  factor, 
Y  =  scale  factor  for  time- 


Using  these  results,  one  sees  that  for  p  =  100  (that  is,  the  model  is 
1/100  the  size  of  the  full  scale  system),  the  scale  factor  for  time,  Y/ 
equals  100.  This  dictates  a  simulated  electromagnetic  field  that  has  a 
rise  time  approaching  100  ps .  This  represents  a  considerable  challenge 
in  both  the  generation  and  the  measurement  of  such  rise  times • 

2.3  Experimental  Approach 

The  Harry  Diamond  Laboratories  has  traditionally  used  time- 
domain  sampling  techniques  to  observe  the  response  of  scaled-down  Army 
systems^  ^  to  simulated  EMP  radiation.  The  recording  instrumentation 
has  been  updated  to  consist  of  a  digital  processing  oscilloscope  con¬ 
trolled  by  a  minicomputer  (Tektronix  WP1221  Signal  Processing  System) • 
The  computer's  ability  to  signal  average  probe  and  sensor  responses 
greatly  enhances  the  signal-to-noise  ratio  of  the  recordetl  waveforms. 
Of  significant  importance  is  the  computer's  capability  for  mathematical 
manipulation  of  the  collected  waveforms.  This  capability  includes  fast 
Fourier  transforms  (FPT's),  inverse  fast  Fourier  transforms  (IKPT’s), 
and  integration,  as  well  as  other  processes - 

An  in-house  effort  was  initiated  to  fabricate  and  characterize 
an  electric  (E-)  field  sensor  to  meet  our  requirements.  A  miniature 
conical  monopole  (CM)  antenna  with  dimensions  as  shown  in  figure  1(a) 
was  fed  through  a  ground  plane  to  the  center  conductor  of  a  section  of 
50-i^  semirigid  cable,  so  that  it  became  a  monopole  above  ground  (fig.  2). 

^  And  rew  A .  Cuneo ,  Jr . ,  and  James  J ,  Loft  us ,  Sea  1  e  Model  ing  for  the 
Perimeter  Acquisition  Radar  (PAR)  EMP  Test,  Parry  Diamond  Laboratories 
HDL-TR~1761  ('September  1976). 

‘^Andrew  A.  Cuneo,  Jr.,  James  J.  Loft  us,  antf  Robert  A.  Dyckson,  EMP 
Scale-Model  Testing  of  an  Army  Brigade  Signal  Center,  Parry  Diamond 
Laboratories  RDL-TM-77-29  (December  1977). 

^Andrew  A.  Cuneo,  Jr.,  and  James  J.  Loftus,  Scale  Modeling  for  the 
PATRIOT  Elect romagnet ic  Pul se  Test ,  Pa  rry  Diamond  La bora  tor i es ,  HDL-TM- 
81-16  (May  1981). 
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Figure  1.  Test  probe:  (a)  conical  monopole  and  (b)  conical  dipole 
sensors • 
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Figure  2.  Conical  monopole  sensor  mounted  in  ground  plane  of 
transmission  1 ine • 


The  transmission  line  was  driven  by  a  fast-rising  step  function 
generator  (rise  time  <250  ps)  ,  and  the  output  of  the  monopole  was  re¬ 
corded  via  the  digital  processing  oscilloscope •  The  E-f ield  within  the 
transmission  line,  assuming  a  transverse  electromagnetic  (TEM)  mode,  can 
be  computed  by  using  the  formula  E  -  V/h,  where  V  is  the  voltage  between 
the  plates  and  h  is  the  plate  spacing. 

It  was  reasoned  that  the  cal  ibration  factor  for  a  CM  would  he 
twice  that  for  a  conical  dipole  (CD)  (fig.  1b)  having  identical  monopole 
element  dimensions.  This  difference  is  because  the  two  theoretically 
identical  outputs  of  a  CD  are  added  with  a  polarity  reversal  of  one  side 


I 
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to  account  for  the  opposite  polarity  of  the  two  sides.  The  total  output 
of  the  CD,  the  sum  of  the  outputs  for  sides  one  and  two,  is  then  twice 
that  for  the  CM  when  the  CD  and  the  CM  are  immersed  in  a  field  of  the 
same  intensity.  The  CD  is  called  a  balanced  sensor  and  is  used  to 
cancel  out  the  common-mode  ambient  noise  induced  on  the  radio  frequency 
(rf)  semirigid  coaxial  cables  attached  to  both  sides  of  the  sensor - 

The  results  of  this  effort  yielded  a  calibration  factor  for  the 
CM  of  8,3  X  10^^  V/m/v»s.  The  field  is  in  volts  per  meter  and  the 
computer  integrated  output  yields  the  units  of  volt* second.  It  was 
intended  that  this  sensor  would  be  used  to  measure  only  the  peak  field 
strength. 


A  CD  was  fabricated  by  forming,  in  effect,  two  transmission 
line  monopoles  back  to  back  on  a  small  circular  ground  plane  (fig. 
1b).  This  yielded  a  dipole.  This  dipole  was  exposed  to  the  horizon¬ 
tally  polarized  free  field  radiation  of  a  scale-model  radiating  source 
( f ig .  3,  4)  with  its  axis  oriented  for  maximum  response •  It  was  located 


Figure  3.  Loaded  dipole  antenna. 
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Fiqure  4-  Test  volume  and  instrumentation  enclosure • 


high  enough  aboveground  so  that  the  peak  amplitude  of  the  pulse  could  he 
observed  before  the  ground  reflected  wave  interfered  with  the  incident 
wave.  While  the  response  of  one  side  of  the  CD  was  sampled  and  stored 
on  a  magnetic  disc ,  the  other  side  was  terminated  in  SO  •  This  proce¬ 
dure  was  then  reversed,  with  care  taken  so  as  not  to  disturb  the 
physical  positioning  of  the  CD  relative  to  the  radiation  source  or  the 
oscilloscope  trigger  signal  antenna.  It  was  then  a  simple  matter  in  the 
computer  to  reverse  the  polarity  of  the  waveform  representing  the  re¬ 
sponse  of  one  side  of  the  CD  and  add  it  to  the  other .  In  this  way ,  the 
common-mode  rejection  characteristic  of  the  balanced  sensor  was  main¬ 
tained.  The  resultant  integrated  output  is  shown  in  figure  5. 

At  this  point,  a  program  was  written  to  compensate  for  the 
high-frequency  loss  of  the  coupling  cable  and  the  delay  line  (app  A). 
The  resultant  waveform  (fig.  6)  is  more  than  twice  the  amplitude  of  the 
waveform  in  figure  5  because  of  the  6-dB  loss  of  the  sampling  system 
delay  line  in  addition  to  the  cable  loss.  Comparing  waveforms  bef<'>re 
and  after  the  high-frequency  loss  compensation  shows  that  the  rise 
improved  by  46  ps  percent)  • 


AMPLITUDE  (10  -12  v  s) 
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Figure  5*  Integrated  output  of  conical  dipole  sensor. 
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Figure  6,  Integrated  output  of  conical  dipole  sensor  with 
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2.4  Results 


The  rise  time  of  figure  6  ps )  was  calculated  by  the 

computer  using  the  10-  to  90-percent  amplitudes  of  the  leading  edq^^ . 

Figure  7  shows  the  result  of  instructing  the  computer  to  calculate  the 

rise  time  using  the  10-  to  80-percent  leading  edge  amplitudes.  This 
yields  a  rise  time  of  approximately  206  ps.  This  value  scaled  uf^  hy  a 
factor  of  50  would  represent  a  real  world  HEMP  rise  time  of  10  ns.  This 
value  is  believed  to  be  a  more  accurate  estimate  of  the  rise  time  of  the 
field.  To  demonstrate  this  accuracy,  the  D-dot  response  peak  amplitude 
was  normalized  to  a  value  of  1  (fig,  8)  and  transformed  into  the  *^re- 

quency  domain  (fig.  9).  Next,  the  original  time-domain  waveform  was 
manipulated  by  the  computer  so  tliat  it  rose  directly  to  a  value  of  1 

(fig.  10),  This  waveform  was  then  t  rans  fo  rine<1  into  the  frequency  domain 
(fiq.  11).  A  comparison  of  the  amplitude  changes  in  the  frequency 
domain  shows  very  little,  if  any,  increase  in  the  higher  frequencies. 

There  is  reason  to  believe  that  the  radiated  field  may  be 
rising  even  faster  than  these  measurements  indicate.  Currently,  other  C[) 
sensors  are  being  fabricated  to  investigate  the  possibility. 
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Figure  7,  Integrated  output  nf  c'nnical  iif>>le  sensor  with 

compensation  for  cable  and  delay  1  i:  loss;  (computer 

calc\ilated  rise  time  using  Id-  to  RO-^x^rcent  amplitules. 
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Figure  8.  Integrated  output  of  conical  dipole  sensor  with 
compensation  for  cable  and  delay  line  loss;  peak 
amplitude  normalized  to  1* 


UJ  1  5 
o 


0. 

5  1 

< 


0  5  14  10  28 

2  57  7  71  12  85 


FREQUENCY  (GHz) 

Figure  9.  Fast  Fourier  transform 

of  output  shown  in  figure  8, 


AMPLITUDE  (RELATIVE  SCALE) 


The  CD  waveform  peak  amplitude  (fig.  7)  was  next  multiplied  by 


calibration  factor  of  CM  _  8.3  x  10^^  v/m/V* s 
2  “  2  ‘  * 

=  4.15  X  10^2  v/m/V*s 

The  result  shows  a  peak  value  of  87  V/m  at  a  radial  distance  of  3.1  m 
from  the  source. 

The  peak  E- field  generated  for  this  experiment  was  calculated 
by  measuring  the  incident  and  reflected  voltages  (fig*  12)  associated 
with  the  model  radiator •  From  thi s  information ,  one  computes  the 
voltage  driving  the  bicone.  Using  the  following  formula,^  one  calcu¬ 
lates  the  peak  radiated  E-field: 

60V 

„inc  o 

pk  =  ' 

where 

inc  =  incident, 
pk  =  peak , 

=  driving  voltage, 
r  =  radial  distance , 

=  bicone  impedance, 

so  that 

inc  ^  60(1461  V) 

^pk  (3.1  m)  (300  ^1) 

=  94  V/m 


The  CD  measured  value  of  87  V/m  is  within  8  percent  of  the  calculated 
value. 

^J.  Krause,  Antennas,  McCraw-IIill  Book  Co*,  Now  York  (1950),  221* 
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1  PULSER  #  2.  1  kV  OUTPUT  (INTO  50  li).  50  ns  INTERNAL  CHARGE  LINE 

2  GENERAL  RADIO  INSERTION  LINE  WITH  68  pF  SERIES  CAPACITOR.  560  W 


RESISTOR  TO  GROUND 

3  RG-213  CABLE.  12  FT  LENGTH 

4  TEKTRONIX  CT-3  PICKOFF  UNIT  (OUTPUT  ^  x  10  INPUT) 

5  ATTENUATOR  (x  10) 

6  TEKTRONIX  485  OSCILLOSCOPE,  TEKTRONIX  C-32  CAMERA 

7  LOADED  DIPOLE  ANTENNA  (LDP) 

Figure  12.  Measurement  of  incident  and  reflected  voltages. 


3.  USE  OF  B-DOT  AND  D-DOT  SENSORS  TO  CHARACTERIZE  RADIATED  FIELD  FROM 
ADVANCED  DESIGN  PULSE  GENERATOR 

3. 1  Discussion 


A  new  pul se  generator  was  designed  by  HDL  to  improve  the  very 
early  time  characteristics  of  the  radiated  wavefom.  The  pulse  from 
this  source  was  appl ied  to  the  same  radiator  used  in  section  2 .  An  EG&G 
B-dot  sensor,  model  MGL-7,  and  an  HDL  D-dot  sensor  were  located  directly 
under  the  radiator  (fig.  13).  The  B-dot  sensor  was  mounted  on  a  12  x  12 
ft  (3.6  X  3.6  m)  metal  ground  screen.  The  D-dot  sensor  was  elevated 
sufficiently  above  the  model  facility  sand  to  allow  the  peak  amplitude 
of  the  incident  field  to  be  observed  uncorrupted  by  the  ground 
reflection . 


LOADED  DIPOLE 
ANTENNA  (END  VIEW) 


Figure  13.  Physical  relationship  of  field  quantities  to  antenna  and 
ground  (k  =  propagation  vector) • 


3.2  Results 


The  results  of  the  experiment  to  determine  the  value 
of  from  both  calculation  and  measurement  are  shown  in  table  1.  The 
incident  E-field  is  related  to  the  measured  magnetic  (H-)  field  by  the 
relationship 


377H 


"pk 


JBL 


where  we  have  assumed  a  perfect  ground  plane. 

The  recorded  early  time  D-dot  waveform  ( range  is  1.3  m)  is 
presented  in  figure  14.  We  see  that  the  rise  time  (10  to  90  percent)  is 
337  ps.  There  is  a  generally  improved  shape  to  the  waveform  when  com¬ 
pared  with  that  in  section  2.  By  using  the  B-dot  sensor  at  2.9  m,  the 
rise  time  (10  to  90  percent)  measured  is  428  ps  (fig.  15).  These  wave¬ 
forms  have  not  been  compensated  for  cable  and  delay  line  loss  because 
the  existing  compensation  does  not  extend  high  enov.gh  in  the  frequency 
domain . 
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Figure  15.  B-dot  response  range  =  2.9  m. 


4.  COMMENTS 

The  accurate  measurement  of  the  radiated  fields  in  an  KMP  scale¬ 
modeling  facility  requires  techniques  and  equipment  quite  different  from 
those  used  in  full-scale  experimental  efforts.  Frequencies  in  the  giga¬ 
hertz  regime  experience  significant  losses  even  in  the  best  r^able. 
Consequently,  these  losses  must  be  taken  into  account  to  faithfully 
reproduce  the  temporal  waveforms. 

The  need  for  very  smal 1  sensors  to  achieve  the  proper  frequency 
response  introduces  the  attendant  problem  of  low  sensitivity.  In  many 
cases,  the  signals  are  too  small  to  "see”  unless  they  are  averaged  100 
times  or  more  until  the  signal-to-noise  ratio  is  adequate.  Signal 
averaging  is  a  very  vital  tool  in  scale-modeling  work. 
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APPENDIX  A. — A  BASIC  LANGUAGE  PROGRAM  TO  COMPENSATE  FOR  THE  HIGH- 
FREQUENCY  LOSSES  IN  PASSIVE  COMPONENTS 

The  Harry  Diamond  Laboratories  has  a  computer  controlled  digitizing 
oscilloscope  using  time-domain  sampling  (TDS)  techniques  to  observe  the 
subnanosecond  responses  of  model  systems*  While  TDS  allows  the  equiv¬ 
alent  recording  of  picosecond  regime  events,  the  system  requires  a  delay 
line  that  causes  rise  time  degradation •  Further  loss  of  high-frequency 
content  is  caused  by  the  radio  frequency  (rf)  cable  that  couples  the 
model  response  to  the  facility  shielded  enclosure*  Fortunately,  the 
computer  with  its  capacity  for  forward  and  inverse  fast  Fourier 
transforms  (FFT's)  allows  for  data  compensation*  In  fact,  when  the  loss 
versus  frequency  through  any  passive  component  is  known,  its  effect  can 
be  removed  * 

The  HELIAX  25-m-long  cable  and  the  Tektronix  7M11  delay  line  were 
frequency  swept  from  0*1  to  6*5  GHz,  and  their  loss  versus  frequency  was 
recorded*  This  information  is  stored  on  a  magnetic  disc  in  the  same 
format  as  the  FFT  of  a  datum*  The  figure  after  listing  A-1  shows  the 
loss  of  the  cable  that  has  been  normalized  to  1  *  Waveforms  col  lected 
through  this  cable  can  be  transformed  into  the  frequency  domain  by  the 
computer  and  then  divided  by  the  frequency  response  of  the  cable*  The 
resulting  frequency-domain  waveform  is  then  inverse  transformed  yielding 
a  time-domain  waveform  with  the  high-frequency  cable  loss  replaced. 
This  procedure  is  then  repeated  for  the  delay  line* 

Listings  A-1  and  A-2  present  the  basic  language  program  to 
compensate  for  the  high-frequency  losses  in  passive  components* 
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LISTING  A-1.  PROGRAM  'CBLADD.MOD' 


10  PEM  PROGP(^  I’lPME  ‘CBL^^OO  MOO’  13  APRIL,  1979  JJL 

20  REM  PEf'IAMEO  FROM  ’CABLE  ADO* . JJL /OCT  80 

30  REM  PURPOSE  PETRIE'/E  DATA  FROM  DXl  AND  COMPENSATE  FOR  LOSS 
40  REM  DUE  TO  CABLE  #1  <80’  ANDREMS  HELIAX) 

50  PAGE' LET  Wf="  " 

60  l.iA<,<EF0RM  A  IS  AA^.5ll  >  SA.HA*,»JAS 
70  PRINT  "PROGRAM  NAME  ‘CBLAOO  MOO’ 

80  PRINT  "RETPIUES  DATA  ANO  COMPENSATES  FOR  CABLE  #1  LOSSES  ’’ 

90  PRINT  "INPUT  FILE  h¥4lE  " 

100  INPUT  FN» 

110  PAGE 

120  CLOSE  41  OPEN  41  AS  DXl  FNi  FOR  READ 

130  EOF  41  GOTO  190 

140  READ  4l,FN$.A,MA,NA,PP,PT 

150  READ  4l,SU$,PU»,PL»,CPS,CB$,AN$ 

160  READ  41  POf.SRf .SF$,OLf,TBf 
170  READ  41,U»,CT$,DA»,W$ 

180  IF  WS»"CABLE  COMPENSATED"  THEN  GOSUB  1030 
190  CLOSE  41 
200  LET  M-MAXVA) 

210  LET  T»CRS(A,  l»M > 

220  LET  N»CRS<A.  9»M; 

230  LET  T-N-T 

240  LET  T»T»SA 

250  UlEWPORT  100,900,300,700 

260  SETGR  UIEN 

270  GRAPH  A 

280  IF  W*-"CABLE  COMPENSATED"  THEN  SMOUE  506,700 

290  PRINT 

300  LET  P»MAX(A> 

310  IF  WfO"  ’’  THEN  LET  CT»»CT$L"  tt  "LH4 
320  SMOUE  600,655 
330  PRINT  ’’MAX=  ’’,MA 
340  LET  BO«CRS<A,  1«MA> 


A)  A 


TWISTING  A-1.  (Cont'd) 


350  LET  TP=CPS(A,  9tl1fi) 

360  LET  PT=(  TP-BO )»SA 
370  LET  RT=RT/3.999994E-10 

780  LET  PT=PTT1000  LET  PT=ITP( PT  vnLET  RT=RT/1000 
390  8riOUE  600,630 
400  LET  N(H=H^i4:(-l  > 

410  PRINT  "rilNs  ‘‘.Nrt 
420  SnOUE  600,610 
430  PRINT  "P-^P*  ",PP 
440  SMOUE  150,720 

450  PRINT  "FILE  NAME  ",FN*,"  WTE  ",DA* 

460  SMOUE  600,320 

470  PRINT  "RT=  ",PT,"  NS" 

480  SMOUE  150,200 

490  PRINT  SUt 

500  PRINT  PUf,PL».CP$ 

510  PRINT  CB»,"  "  mt,"  ",PO» 

520  PRINT  SR$,SF$.DLt 
530  PRINT  TB»,U$ 

540  PRINT  CT$ 

550  IF  W»="CABLE  COMPENSATED"  THEN  GOSUB  1050 
560  WAIT 

570  REM  GIUES  FFT  OF  PREUIOUS  DATA 
580  WAUEFORM  B  IS  B8(256>.SB,HB»,UB$ 

590  WAUEFORM  C  IS  CC(256).SC,HCf,UCt 

600  DELETE  OD'EE 

610  DIM  00<256)\DIM  EE<256) 

620  LET  A«A-MEA<A) 

630  REM  ABOUE  REMOUES  DC  COMPOCNT  FROM  TIME  DOMAIN  WA»,€FORM 
640  RFFT  A,B,C 

650  REM  ABOUE  TRANSFORMS  TIME  INTO  FREQUENCY  DOMAIN 
660  POLAR  B • C 

670  REM  AMPLITUDE  US  FREQ  IS  NOW  IN  'B'  PHASE  US  FREQ.  IN  ’C* 
660  PAGEvGRAPH  B 
690  SMOUE  300,720 
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LISTING  A- 1 .  ( Con  t ’ d ) 


700  PPINT  "FFT  OF  OfiJU  *'.FH$ 

710  I-JAIT'PAGE  PPIMT  "DO  YOU  WISH  TO  CHBLE  COMPENSATE  THIS  DATA 
72:0  INPUT  Pf 

770  IF  P$="V  THEM  IF  W$="  "  THEN  GOTO  760 

740  IF  Pf*"V  THEN  IF  W$=''CAeLE  COMPENSATED"  THEN  GOSUB  1030 

750  IF  Pt='*H''  THEN  EIC 

760  OPEN  #1  AS  DX0  "CAEa.El  LOS"  FOP  REAO 

770  WAUEFOPfi  X  I S  KK''  1 023  >  •  SX  <  HX» .  '//$ 

780  READ 
790  close  il 

000  PEM  WAUEFOPM  'X'  IS  THE  LOSS  OF  THE  CABLE  MS  FREQUENCY 

810  REM  THAT  IS.  A  NUH8ER  '7S  FREQUENCY 

820  PAGE 

830  SMOME  100, 200\PP I NT  E$ 

840  UIEWPOPT  100.800.3e0.700\SETGR  MIEW  GRAPH  X 
850  FOP  N=0  TO  256 
860  LET  FB=SBTN 

670  LET  BBC  N  -=BBC  N  >/(  < ,  rxC  FB/SX )  > ) 

880  IF  FE«IE-^10  then  GOTO  900 

890  NEXT  N 

900  RAGE  GRAPH  B 

910  SMOUE  250.700\PPINT  "THIS  IS  FFT  OF  ",FN»,"  WITH  CABLE  LOSSES  ADDED 
920  FOP  Ns0  TO  256 
930  LET  OD=BB 
940  LET  EE=CC 

950  LET  BBC  N  >=00^  N  )»COS<  EE<  N ) ) 

960  LET  CCCN  •=DD<N')»SrNCEECN)) 

970  NEXT  N 

900  RFFT  A,B,C."INU" 

990  PAGE 

1000  let  AA*AA-MEA<  AA<  0  20)) 

1010  LET  WS^'CABLE  COMPENSATED" 

1020  GOTO  190 

1030  PRINT  "MY  INFORMATION  IS  THAT  CABLE  COMPENSATION  ALREADY  DONE  " 
1040  END 


LISTING  A-1. 


(  Cent ' d ) 


Al'l’LNUlX  A 


1050  PRINT  "DO  YCCJ  WISH  TO  STORE  THIS  COMPENSATED  DATA  7" 
1060  PRINT  "BEFORE  COMPENSATION,  FILE  NAME  MAS  ",FN$ 

1070  INPUT  Lt 

1080  IF  L#</"Y"  THEN  IF  L$<>"N"  THEN  GOTO  1050 
1090  IF  Lf=‘'N"  THEN  END 

1100  IF  L*="V"  THEN  PRINT  "INPUT  NEW  FILE  NAME  " 

1110  IF  Lf="Y"  THEN  IHFUT  FN$ 

1120  IF  L»="Y"  THEN  OPEN  #l  AS  CiXl  FH*  FOR  WRITE 

1130  WRITE  #1,FN»,A,MH,NA,P,PT 

1140  WRITE  #1 .SU»,PU*,PLf,CP»,CB».AN» 

1150  WRITE  #l,POf,SRf  SFf^DLf^TBf 

1160  WRITE  #l,U$.CT$,DA$.Wf 

1170  CLOSE  #1 

1180  PAGE \D IF:  DXl  FNf 

1190  END 

READY 
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LOSS 


CABLE  #1  LOSS  US  FREQUENCY,  TAKEN  FROM  D8  GRAPH  WHICH  WAS  STRAIC 
HT  LINE  APPROXIMATION  (QUESTIONABLE  BEYOND  €  5CH2  DATA  TAKEN  UIA  SWEEPER 
I.  SPEC.  ANALYZER  ON  10  APRIL,  79  (JX) 
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LISTING  A-2.  PROGRAM  'DLYAnD.MOD' 


10  PEM  PPOGP0M  HftME  'XYftOO  NOO'  . 13  APRIL,  1979  JX 

20  REM  RENAMED  IN  OCT  1980  FROM  'DELAY  ADD'  JX 

30  REM  PURPOSE  RETRIE'X  DATA  FROM  DXl  AND  COMPENSATE  FOR  LOSS 
40  REM  DIX  TO  XL  AY  #148 
50  PAGE^LET  W*="  " 

€0  WAtJEFORM  A  IS  AA<  5 1 1  >•  SA , HAS , 

70  PRINT  "PROGRAM  NAME  ‘XYADO  MOO' 

80  PRINT  "PETRIUES  DATA  AND  COMPENSATES  FOR  XLAY  #148  LOSSES  " 

90  PRINT  "INPUT  FILE  NAME  " 

100  INPUT  FN# 

110  PAGE 

120  CLOSE  #1 ^OPEN  #1  AS  DXl  FN$  FOR  READ 

130  EOF  #1  GOTO  110 

140  READ  #1,CM».A 

150  CLOSE  #1 

160  LET  MaMAX'TA  ) 

170  LET  TxCRSCA,  UM  ' 

180  LET  NsCRS^A,  8*M) 

190  LET  T=N-T 

200  LET  T»T*SA 

210  UIEWPORT  100,900,300,700 

220  SETGR  UIEW 

230  GRAPH  A 

240  IF  W$»" DELAY  COMPENSATED"  THEN  SMOUE  500,700 

250  PRINT 

260  LET  P*MAX(A) 

270  SMOUE  200,670 

280  PRINT  "TR  <10  TO  807. )«  ",T,HA$ 

290  SMOUE  500,730 
300  LET  P«P»1000 

310  PRINT  "MAX*  ",P, "  MILLIUOLTS" 

320  SMOX  100,200 

330  IF  M$<>"  ••  THEN  LET  C«$-Crmi-  tt  "Ml# 

340  PRINT  CmNWAIT 
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350  IF  W«="DeLAY  COMPENSATED"  THEN  GOSUB  760 
360  FEU  GVJEi  FFT  OF  PF?EUIOUS  DATA 
370  WAUEFOPM  B  IS  BB*:  256 , SB ,  HBf , 'JB$ 

360  DELETE  DO, EE 

390  Din  DO':  256 '  DIM  EE' 256  ) 

400  WAUEFOPM  C  IS  CC^  256  '  •  SC .  HC$.  iX$ 

410  LET  H=A-riEA'A> 

420  PFFT  A.B.C 

430  POLAP  B.C 

440  PAGEGPAPH  B 

450  SMOUE  300.720 

460  PPINT  "FFT  OF  DATA  " ■ FN$ 

470  WAIT  PAGE 

480  PPINT  "DO  YOU  WISH  TO  DELAY  C0MPET4SATE  THIS  DATA 
490  INPUT  PS 

500  IF  P»="V"  THEN  IF  Wf="  "  THEN  GOTO  530 

510  IF  P$=''V"  THEN  IF  W$="DELAY  COMPENSATED"  THEN  GOSJJB  740 

520  IF  Rf*"N"  THEN  END 

530  OPEN  «1  AS  DX0  "DELAY  LOS"  FOP  READ 

540  WAUEFOPM  X  IS  XXf  51 1  V.  SX.  nyfU-iXf 

550  READ  #1.E$.X 

560  CLOSE  «1 

570  FOR  N=0  TO  256 

580  LET  FB=SBTN 

590  IF  FB>=6  5E+09  THEN  GOTO  620 
600  LET  BBi' N  N  '  XX(  FB/SX  > ) ) 

610  NEXT  N 
620  PAGEnGRAPH  B 
630  FOR  N»0  TO  256 
640  LET  OO'BB 
650  LET  EE=«CC 

660  LET  BBC  N  MXX  N  )»COS<' EE(  N ) ) 

670  LET  CC(N>=Ot>:N)»SIN(EE(N;) 

680  NEXT  N 

690  RFFT  A.BC-'INU" 
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M ST  INC  A-2. 


( Cent ' d ) 


700  P«GE 

710  LET  0  22  )  > 

720  LET  W*='‘DELMY  COMPENSATED" 

730  GOTO  150 

740  PRINT  "flV  INFORMATICifJ  IS  THAT  DELAY  COMPENSATION  ALREADY  DONE 


750  END 

760  PRINT  "DO  YOU  WISH  TO  STORE  THIS  COMPENSATED  DATA  ?" 
770  PRINT  "BEFORE  COMPENSATION,  FILE  NAME  WAS  ".FNf 


780  INPUT  L* 

790  IF  Lf<,'"Y"  THEN  IF  L»X2"N"  THEN  GOTO  760 
800  IF  L#="N"  THEN  END 

810  IF  L*="Y"  THEN  PRINT  "INPUT  NEW  FILE  NAME  " 

820  IF  L$="Y"  THEN  INPUT  FNf 

830  IF  Lf="Y"  THEN  OPEN  #1  AS  DXl  FNf  FOR  WRITE 


II 


840  WRITE  il.CMf  A 
850  CLOSE  41 
860  PAGE  DIR  DXl  FNf 
870  END 
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